home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / PublicDomain / Anwendungen / SetDST-1.8 / Install-SetDST next >
Text File  |  2000-03-12  |  11KB  |  423 lines
  1. ;  $VER: InstallSetDST 1.6 (12.3.2000) Copyright © 1999-2000 by Stefan Falke
  2. ;  $Revision: 1.6 $ $Date: 2000/03/12 13:34:10 $
  3.  
  4. (set prog_name "SetDST")
  5.  
  6. (set destdev "DH0:")
  7. (set destdir "SetDST")
  8. (set Install_dest destdev)
  9.  
  10. (set @default-dest "")
  11.  
  12. (set defuser @user-level)
  13.  
  14. (set vernum (getversion))
  15. (set os_ver (/ vernum 65536))
  16. (set os_rev (- vernum (* os_ver 65536)))
  17.  
  18. (set ivernum @installer-version)
  19. (set iver (/ ivernum 65536))
  20. (set irev (- ivernum (* iver 65536)))
  21.  
  22. (if (>= iver 44 ) (
  23.     (effect "center" "horizontal" $0000FF $000000)
  24. ))
  25.  
  26. (set lang_dk 0)
  27. (set lang_de 1)
  28. (set lang_en 2)
  29. (set lang_es 3)
  30. (set lang_fr 4)
  31. (set lang_it 5)
  32. (set lang_no 6)
  33.  
  34. (set lang_builtin lang_en)
  35.  
  36. (set #lch_dku "Dansk")
  37. (set #lch_deu "Deutsch")
  38. (set #lch_enu "English")
  39. (set #lch_esu "Español")
  40. (set #lch_fru "Français")
  41. (set #lch_itu "Italiano")
  42. (set #lch_nou "Norsk")
  43.  
  44. (set #lch_dkl "dansk")
  45. (set #lch_del "deutsch")
  46. (set #lch_enl "english")
  47. (set #lch_esl "español")
  48. (set #lch_frl "français")
  49. (set #lch_itl "italiano")
  50. (set #lch_nol "norsk")
  51.  
  52. (set #language lang_builtin)
  53. (if (= #lch_dkl @language) (set #language lang_dk))
  54. (if (= #lch_del @language) (set #language lang_de))
  55. (if (= #lch_enl @language) (set #language lang_en))
  56. (if (= #lch_esl @language) (set #language lang_es))
  57. (if (= #lch_frl @language) (set #language lang_fr))
  58. (if (= #lch_itl @language) (set #language lang_it))
  59. (if (= #lch_nol @language) (set #language lang_no))
  60.  
  61. (if (= #language lang_de) (
  62.     (set #chdir "Bitte Ziel-Verzeichnis für\nInstallation auswählen.\n\nEin eigenes Verzeichnis wird nicht\nautomatisch erzeugt.")
  63.     (set #chdirhelp "Sie müssen jetzt den Pfad des Verzeichnisses angeben, in das die Dateien kopiert werden sollen.\nNoch nicht vorhandene Verzeichnisse können von diesem Installationprogramm aus angelegt werden und mit einem Schubladen-Icon versehen werden.")
  64.  
  65.     (set #lchelp "Wählen Sie den Sprachen-Katalog der installiert werden soll.")
  66.     (set #askcatdir "In welchem Verzeichnis soll der Sprachen-Katalog installiert werden?")
  67.  
  68.     (set #iconnew "\nWollen Sie das bereits vorhandene SetDST-Icon mit dem Icon aus dem Installations-Archiv überschreiben?\nWenn Sie in dem vorhandenen Icon ToolTypes verändert haben, sollten Sie 'Nein' wählen.\n(Empfohlene Wahl: 'Nein')")
  69.     (set #owhelp "Wenn Sie diesen Requester mit 'Ja' beantworten, wird eine eventuell schon vorhandene %sVersion komplett überschrieben!")
  70.     (set #owhelp2 "Wenn Sie diesen Requester mit 'Ja' beantworten, wird eine eventuell schon vorhandene Datei komplett überschrieben!")
  71.  
  72.     (set #askinstall1 "Wollen sie das Hauptprogramm erneut installieren?")
  73.     (set #askinstall2 "Wollen sie das Hauptprogramm mit der Version %ld.%ld installieren?")
  74.     (set #installed1 (cat "Die Version %ld.%ld des Programmes \"%s\" ist vermutlich schon komplett in dem angegebenen Zielverzeichnis installiert.\n" #askinstall1))
  75.     (set #installed2 (cat "ACHTUNG! In dem angegebenen Zielverzeichnis befindet sich bereits die Version %ld.%ld des Programmes \"%s\".\n" #askinstall2))
  76.  
  77.     (set #runstartup "Soll SetDST während des Startvorganges des Computers automatisch ausgeführt werden?")
  78.     (set #rshelp "Wenn Sie diesen Requester mit 'Ja' beantworten, wird das Hauptprogramm in das WBStartup-Verzeichnis kopiert.")
  79.  
  80.     (set #pr_copycats "Kopieren des Sprachen-Katalogs")
  81.     (set #pr_copydata "Kopieren der Zeitzonen-Datei")
  82.     (set #pr_copyguide "Kopieren der Bedienungsanleitung")
  83.     (set #pr_copytools "Kopieren der Hilfsprogramme")
  84.     (set #pr_copymain "Kopieren des Hauptprogrammes")
  85.  
  86.     (set #newer "neuere ")
  87.     (set #older "ältere ")
  88.     (set #no "Nein")
  89.     (set #yes "Ja")
  90. )(
  91.     (set #chdir "Please select a destination directory\nfor the installation.\n\nNo drawer will be created by default.")
  92.     (set #chdirhelp "You have to specify now the path of the drawer in which all files shall be copied.\nNon existant drawers can be created from within this install script including their accompanying icons.")
  93.  
  94.     (set #lchelp "Please select the language catalog to be installed")
  95.     (set #askcatdir "In which drawer do you want the catalog to be installed?")
  96.  
  97.     (set #iconnew "\nDo you want the existing SetDST Icon to be copied over by the new icon from the installation archive?\nChoose 'No' if you have modified any tooltypes in the existing icon.\n(Recommended choice: 'No')")
  98.     (set #owhelp "If you respond to this requester with 'Yes', a possibly existing %sversion will be written over completely!")
  99.     (set #owhelp2 "If you respond to this requester with 'Yes', a possibly existing file will be written over completely!")
  100.  
  101.     (set #askinstall1 "Do you want to install the main program again?")
  102.     (set #askinstall2 "Do you want to install the main program with version %ld.%ld?")
  103.     (set #installed1 (cat "Version %ld.%ld of the program \"%s\" presumedly has already been installed completely.\n" #askinstall1))
  104.     (set #installed2 (cat "ATTENTION! Version %ld.%ld of the program \"%s\" already exists in the destination drawer.\n" #askinstall2))
  105.  
  106.     (set #runstartup "Do you want SetDST to be run automatically during computer startup?")
  107.     (set #rshelp "If you respond to this requester with 'Yes', the main program will be copied to the SBStartup drawer.")
  108.  
  109.     (set #pr_copycats "Copy language catalog")
  110.     (set #pr_copydata "Copy timezone data file")
  111.     (set #pr_copyguide "Copy user guide")
  112.     (set #pr_copytools "Copy tools")
  113.     (set #pr_copymain "Copy main program")
  114.  
  115.     (set #newer "newer ")
  116.     (set #older "older ")
  117.     (set #no "No")
  118.     (set #yes "Yes")
  119. ))
  120.  
  121. (procedure startcopy
  122.     (working)
  123.  
  124.     (set file prog_name)
  125.     (set Install_src "")
  126.  
  127.     (if (= copywbs 1)
  128.         (set ddir "sys:wbstartup")
  129.         (set ddir @default-dest)
  130.     )
  131.     (set dfile (tackon ddir prog_name))
  132.     (checkMain)
  133.  
  134.     (if (= docopy 1) (
  135.         (docopyMain)
  136.  
  137.         (set sdir "C")
  138.         (set ddir (tackon Install_dest "C"))
  139.         (docopyTools)
  140.  
  141.         (docopyCats)
  142.  
  143.         (set dfile "SetDST.guide")
  144.         (set file (tackon Install_src dfile))
  145.         (docopyGuides)
  146.  
  147.         (set sdir "S")
  148.         (if (= copywbs 1)
  149.             (set ddir "S:")
  150.             (set ddir (tackon Install_dest "S"))
  151.         )
  152.         (docopyData)
  153.  
  154.     ))
  155.  
  156. )
  157.  
  158. (procedure chooseWBStart
  159.     (set copywbs (askbool
  160.             (prompt    #runstartup)
  161.             (help        #rshelp)
  162.             (choices #yes #no)
  163.         )
  164.     )
  165. )
  166.  
  167. (procedure chooseCats
  168.     (set catalog (askchoice
  169.             (choices #lch_dku #lch_deu #lch_enu #lch_esu #lch_fru #lch_itu #lch_nou)
  170.             (prompt #lchelp)
  171.             (help #lchelp)
  172.             (default #language)
  173.         )
  174.     )
  175.  
  176.     (if (= catalog lang_dk) (set #ulcat #lch_dkl))
  177.     (if (= catalog lang_de) (set #ulcat #lch_del))
  178.     (if (= catalog lang_en) (set #ulcat #lch_enl))
  179.     (if (= catalog lang_es) (set #ulcat #lch_esl))
  180.     (if (= catalog lang_fr) (set #ulcat #lch_frl))
  181.     (if (= catalog lang_it) (set #ulcat #lch_itl))
  182.     (if (= catalog lang_no) (set #ulcat #lch_nol))
  183.  
  184.     (if (= catalog lang_builtin) (set #ulcat ""))
  185.     (if (<> #ulcat "") (
  186.         (if (= copywbs 1)(
  187.             (set catdirc 1)
  188.         )(
  189.             (set catdirc (askchoice
  190.                     (choices (tackon @default-dest (cat "Catalogs/" #ulcat)) (cat "LOCALE:Catalogs/" #ulcat) )
  191.                     (prompt #askcatdir)
  192.                     (help #askcatdir)
  193.                     (default 0)
  194.                 )  
  195.             )
  196.         ))
  197.  
  198.         (if (= catdirc 0) (
  199.             (set catdir @default-dest)
  200.         )(
  201.             (set catdir "LOCALE:")
  202.             (if (< (exists "LOCALE:" (noreq)) 2) (
  203.                 (makedir "sys:Locale")
  204.                 (makeassign "LOCALE" "sys:Locale")
  205.             ))
  206.             )
  207.         )
  208.     ))
  209. )
  210.  
  211. (procedure docopyCats
  212.     (if (<> #ulcat "") (
  213.         (if (< (exists (tackon catdir "Catalogs")) 2)
  214.             (makedir (tackon catdir "Catalogs"))
  215.         )
  216.         (if (< (exists (tackon catdir (cat "Catalogs/" #ulcat)) ) 2)
  217.             (makedir (tackon catdir (cat "Catalogs/" #ulcat)) )
  218.         )
  219.         (copylib
  220.             (prompt #pr_copycats)
  221.             (help @copylib-help)
  222.             (source (cat (tackon Install_src "Catalogs/") #ulcat "/setdst.catalog"))
  223.             (dest (tackon catdir (cat "Catalogs/" #ulcat)) )
  224.             (optional "nofail")
  225.             (confirm)
  226.         )
  227.     ))
  228. )
  229.  
  230. (procedure docopyData
  231.     (if (< (exists ddir) 2)
  232.         (makedir ddir)
  233.     )
  234.     (copyfiles
  235.         (prompt #pr_copydata)
  236.         (help @copyfiles-help)
  237.         (source sdir)
  238.         (dest ddir)
  239.         (pattern "#?.dat")
  240.         (confirm)
  241.     )
  242. )
  243.  
  244. (procedure docopyTools
  245.     (if (< (exists ddir) 2)
  246.         (makedir ddir)
  247.     )
  248.     (copyfiles
  249.         (prompt #pr_copytools)
  250.         (help @copyfiles-help)
  251.         (source sdir)
  252.         (dest ddir)
  253.         (pattern "#?")
  254.         (confirm)
  255.     )
  256. )
  257.  
  258. (procedure docopyGuides
  259.     (if (= (exists file) 1)
  260.         (copyfiles
  261.             (prompt #pr_copyguide)
  262.             (help @copyfiles-help)
  263.             (source file)
  264.             (dest Instal